home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / i.dat < prev    next >
Text File  |  2007-02-28  |  1KB  |  78 lines
  1. 8000 FOR J:=1 TO 4 DO // I1
  2. 8010  PENUP 
  3. 8020  FORWARD 5
  4. 8030  PENDOWN 
  5. 8040  FORWARD 6
  6. 8050  PENUP 
  7. 8060  BACK 11
  8. 8070  LEFT 90
  9. 8080  FORWARD 1
  10. 8090  RIGHT 90
  11. 8100 ENDFOR J
  12. 8110 //
  13. 8120 FOR J:=1 TO 24 DO // 2
  14. 8130  PENUP 
  15. 8140  FORWARD 3
  16. 8150  PENDOWN 
  17. 8160  FORWARD 10
  18. 8170  PENUP 
  19. 8180  BACK 13
  20. 8190  LEFT 90
  21. 8200  FORWARD 1
  22. 8210  RIGHT 90
  23. 8220 ENDFOR J
  24. 8230 //
  25. 8240 FOR J:=1 TO 6 DO // 3
  26. 8250  PENDOWN 
  27. 8260  FORWARD 16
  28. 8270  PENUP 
  29. 8280  BACK 16
  30. 8290  LEFT 90
  31. 8300  FORWARD 1
  32. 8310  RIGHT 90
  33. 8320 ENDFOR J
  34. 8330 //
  35. 8340 FOR J:=1 TO 4 DO // 4
  36. 8350  PENUP 
  37. 8360  FORWARD 2
  38. 8370  PENDOWN 
  39. 8380  FORWARD 12
  40. 8390  PENUP 
  41. 8400  BACK 14
  42. 8410  LEFT 90
  43. 8420  FORWARD 1
  44. 8430  RIGHT 90
  45. 8440 ENDFOR J
  46. 8450 //
  47. 8460 FOR J:=1 TO 2 DO // 5
  48. 8470  PENUP 
  49. 8480  FORWARD 5
  50. 8490  PENDOWN 
  51. 8500  FORWARD 6
  52. 8510  PENUP 
  53. 8520  BACK 11
  54. 8530  LEFT 90
  55. 8540  FORWARD 1
  56. 8550  RIGHT 90
  57. 8560 ENDFOR J
  58. 8570 //
  59. 8580 FOR J:=1 TO 1 DO // 6
  60. 8590  PENCOLOR 15
  61. 8600  LEFT 90
  62. 8610  FORWARD 4
  63. 8620  RIGHT 90
  64. 8630 ENDFOR J
  65. 8640 //
  66. 8650 FOR J:=1 TO 4 DO // 7
  67. 8660  PENCOLOR 6
  68. 8670  PENUP 
  69. 8680  FORWARD 5
  70. 8690  PENDOWN 
  71. 8700  FORWARD 6
  72. 8710  PENUP 
  73. 8720  BACK 11
  74. 8730  LEFT 90
  75. 8740  FORWARD 1
  76. 8750  RIGHT 90
  77. 8760 ENDFOR J
  78.